PRIMEROS PASOS 
SPECTRUM 


MATEMÁTICAS 
SENCILLAS 


JONATHAN INGLIS 
o 
| e 


o PA 


Programas para el ZX Spectrum y ZX Spectrum + 


ceac 


PRIMEROS PASOS 
SPECTRUM 


MATEMÁTICAS 
SENCILLAS 


JONATHAN INGLIS 


$ ediciones pe 
Ceac perú, 164 - 08020 Barcelona - España 


No se permite la reproducción total o parcial de este libro, 
ni el registro en un sistema informático, ni la transmisión 
bajo cualquier forma o a través de cualquier medio, ya sea 
electrónico, mecánico, por fotocopia, por grabación o por 
otros métodos, sin el permiso previo y por escrito de los 
titulares del Copyright. 


Traducción autorizada de la obra: 
SIMPLE MICRO MATHS 
(ZX SPECTRUM, ZX SPECTRUM+) 


Editado en lengua inglesa por: 
Granada Publishing Ltd 

(O) Jonathan Inglis 1985 

ISBN 0-246-12589-6 


(E) EDICIONES CEAC, S.A., 1987 
Perú 164 - 08020 Barcelona (España) 


1.? edición: Febrero 1987 


ISBN 84-329-7055-7 
Depósito legal: B. 2019 - 1987 


Impreso por Grafos S.A. Arte sobre papel. 
Paseo Carlos l, 157 - 08013 Barcelona 


Impreso en España 
Printed in Spain 


Este libro contiene programas listos para ser.introducidos y 
ha sido realizado para su utilización con el 2% Spectrum+ y 
Zk Spectrum, 


Los programas son cortos, sencillos y divertidos; todos 
ellos están descritos y explicados de forma que el lector 
comprenda perfectamente su funcionamiento y sepa introducir 
modificaciones, Este libro da también consejos sobre los 
atajos y las prestaciones especiales que abren el camino a 
una programación más eficaz con el 2X Spectrum, 


Los programas de este libro parten de principios básicos 
sencillos y se hacen algo más complejos de forma gradual, 
Esto ayudará a aprender, paso a paso, las palabras y órdenes 
utilizadas en la escritura de programas, 

No hay que preocuparse si, en un principio, no se comprende 
exactamente el significado de cada palabra u orden, Al 
probar los programas se verá con claridad para qué sirven, 


Los programas informáticos se pueden almacenar en cintas 
cassette, Los primeros programas son sencillos, pero es 


probable que se quiera hacer una copia de los programas más 
largos, Al final de este libro hay una sección que explica 
la forma de grabarlos, 


PROGRAMACION PARA PRINCIPIANTES 


Muchos principiantes tienen problemas para conseguir que sus 
programas funcionen sin problemas, La mayoría de estos 
problemas se pueden evitar si se sabe teclear e introducir 
correctamente los programas, El que aborde por primera vez 
la programación del 2X Spectrum, debe leer antes 
detenidamente esta sección y volver a consultarla cuando 
tenga problemas, 


ESCRITURA EN EL TECLADO DEL SPECTRUM 


Tanto el ZX Spectrum como el ZX Spectrum+ tienen sistemas de 
"entrada por tecla individual", por lo que no hay que 


introducir las órdenes BASIC letra a letra: pulsando una 
tecla, sale impresa en la pantalla la palabra completa, 


Las palabras BASIC que se pueden imprimir pulsando una sola 
tecla reciben el nombre de palabras clave o palabras 
reservadas, En la mayoría de las teclas hay impresas 
palabras clave y también encima y debajo de ellas en el 
Spectrum estándar, 


Cuando se teclea un programa HAY que utilizar estas palabras 
clave, Si se intenta introducir una orden o instrucción 
BASIC letra a letra el programa no funcionará, 


ELECCION DE LOS CURSORES 


Cuando se conecta el 2% Spectrum y se pulsa la tecla ENTER 
se verá una letra K brillar intermitentemente, Se trata del 
cursor K, En total hay seis cursores; los cursores K, L, C, 
LE, UV 


o 


AETUAN 


Ñ > 


CLEAR 


mr 


En las teclas o junto a ellas se pueden ver palabras, 
letras, números, simbolos o figuras de diferentes colores, 
El cursor de la pantalla determina cuál de ellas es impresa 
cuando se pulsa la tecla, 


El cursor K 


Cuando está en la pantalla el cursor K, la pulsación de las 
teclas provoca la impresión de la palabra o número de color 
blanco indicado en la tecla, En el 2% Spectrum+ sale impresa 
la palabra superior de la parte sobresaliente de la tecla, 
Por ejemplo, cuando está en la pantalla el cursor K y se 
pulsa la tecla G, sale en la pantalla la instrucción 60 TO, 
No olvidarlo: K es para las PALABRAS CLAVE, 


Lo dicho no se aplica a las teclas CAPS SHIFT, ENTER o BREAK 
SPACE, 
El cursor L 


Después de teclear una palabra clave (a menos que ya se haya 
conectado CAPS LOCK), sale en la pantalla el cursor L, Ahora 


sale impreso el número o la letra, en minúscula y de color 
blanco, que hay en la tecla que se pulsa, 


El cursor L corresponde a las minúsculas, Cuando está en la 
pantalla el cursor L y se quiere imprimir una letra en 
mayúsculas, pulsar la tecla CAPS SHIFT y la letra deseada, 
Si se quiere que todas las letras sean mayúsculas, utilizar 
el cursor C, No olvidarlo: L es para las MINUSCULAS, 


El cursor C 


Para hacer entrar en escena al cursor C en el 2% Spectrum 
estándar, pulsar al mismo tiempo las teclas CAPS SHIFT y 
CAPS LOCK manteniendo un dedo en una tecla y pulsando luego 
la otra, En el 2X Spectrum+ basta pulsar CAPS LOCK, 


Cuando está en la pantalla el cursor C se imprime la 
palabra o número de color blanco de la tecla que se pulsa, 
Las letras aparecerán en mayúsculas, Para tener de nuevo el 
cursor L en la pantalla, pulsar al mismo tiempo las teclas 
CAPS SHIFT y CAPS LOCK (en el 2X Spectrum+, pulsar sólo CAPS 
LOCK), No olvidarlo: C es para las MAYUSCULAS, 


El cursor E 


Antes de imprimir alguna de las palabras que hay por encima 
(y en el 2% Spectrum también debajo) de las teclas, es 
necesario que el cursor E esté en la pantalla, 


(a) Para imprimir las palabras verdes que hay en el 
teclado del Spectrum estándar, pulsar al mismo tiempo las 
teclas CAPS SHIFT y SYMBOL SHIFT, Es decir, mantener el dedo 
en una de las dos teclas y pulsar la otra; luego, dejar de 
pulsarlas al mismo tiempo y pulsar la tecla deseada, 


(b) Para imprimir la palabra superior de una tecla 
del 2% Spectrum+ pulsar la tecla EXTEND MODE, 


(c) Para imprimir las palabras y simbolos de color 
rojo que hay debajo de las teclas en el 2% Spectrum 
estándar, pulsar en primer lugar las teclas CAPS SHIFT y 
SYMBOL SHIFT, como en (a), para hacer aparecer el cursor E, 
Pero esta vez mantener la presión en una de las dos teclas 
(o volver a pulsar una de ellas mientras el cursor E está en 
la pantalla) y pulsar la tecla deseada, 


(d) Para imprímir la palabra o el simbolo que hay 
justo encima de la parte saliente de las teclas del 2% 
5pectrum+, presionar al mismo tiempo las teclas SYMBOL SHIFT 
y EXTEND MODE y pulsar entonces la tecla deseada, 


K, L, C, y SYMBOL SHIFT 


En la parte frontal de la mayoría de las teclas del Spectrum 
hay otra palabra o símbolo de color rojo, En el teclado del 
2k Spectrum+ éstas son las palabras o simbolos inferiores de 
la parte saliente de las teclas, Para obtener estas palabras 
o simbolos, pulsar al mismo tiempo SYMBOL SHIFT y la tecla 
deseada, Estos simbolos o palabras clave sólo se pueden 
imprimir cuando está en la pantalla el cursor K, LoC, 


El cursor G 


En las teclas 1 a 8 hay impresas un conjunto de figuras de 
color blanco, Estas figuras reciben el nombre de figuras 
gráficas o caracteres gráficos, Para imprimir estas figuras 
tiene que estar en la pantalla el cursor G, Para ello, se 
deben pulsar al mismo tiempo la tecla CAPS SHIFT y la tecla 
9, Si se tiene el ZX Spectrum+, pulsar sólo la tecla GRAPH, 


Mantener la presión en la tecla CAPS SHIFT y pulsar una 0 
más teclas del |] al $, En la pantalla saldrán impresas las 
figuras de las teclas pulsadas, Al dejar de pulsar la tecla 
CAPS SHIFT y pulsar sólo estas teclas las figuras salen en 
la pantalla al revés, 


Cuando se ha terminado de introducir figuras gráficas hay 

que desconectar el cursor G, Para hacerlo, pulsar al mismo 
tiempo CAPS SHIFT y la tecla 9, En el 2X Spectrum+ pulsar 

sólo la tecla GRAPH, No olvidarlo; G es para GRAFICOS, 


El cursor ? 


Cuando se introduce un error, el 2% Spectrum es capaz, a 
veces, de hacérnoslo saber, Cuando esto sucede, imprime el 
cursor ? junto a la parte del programa que es incorrecta, 


LOS NUMEROS DE LINEA 


Un programa de ordenador es un listado de instrucciones 
numeradas, Cada conjunto empieza con un número de linea, 
normalmente en el 10, y ascienden de diez en diez, dejando 
espacios para poder introducir más tarde líneas adicionales, 
Los números de línea no tienen que seguir ninguna pauta 
establecida; lo importante es que las instrucciones del 
programa estén en el orden correcto, 


LA TECLA ENTER 


No hay que preocuparse si se introduce una linea de un 
programa demasiado larga, ya que la misma continúa 
automáticamente en la linea siguiente, Pero cuando se ha 
terminado de escribirla, HAY que pulsar la tecla ENTER, 


LA TECLA DELETE : 


Si se comete un error al escribir, puede eliminarse pulsando 
al mismo tiempo CAPS SHIFT y DELETE, Si se mantienen los 
dedos en las dos teclas, llegará a borrarse la linea 
completa, En el 2% Spectrum+ sólo hay que pulsar DELETE, 
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LISTANDO 


Una vez introducido un programa, hay que decir al 2% 
Spectrum que lo ejecute, Para ello, pulsar RUN y después 
ENTER, Si todo va bien, funcionará a la primera, pero en 
caso contrario será necesario listar (LIST) el programa y 
examinarlo de nuevo, Para listar el programa, pulsar primero 
la tecla ENTER, ya que esta acción borra la pantalla antes 
de que aparezca la imagen del listado, También se pueden 
listar los programas pulsando LIST y después ENTER, pero 
este método no borra la pantalla, 


LINEAS NUEVAS 


Cuando se descubre un error cometido en una línea que ya ha 
sido introducida en el programa, hay dos formas de 
rectificarla; una es escribir de nuevo la línea completa 
utilizando el mismo número de línea, ya que cuando se pulsa 
la tecla ENTER, la linea nueva sustituye a la vieja, El otro 
método es editar (EDIT) la línea, Más adelante se explicará 
este método, 
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Algunas veces los errores en los programas reciben el nombre 
de "bugs" (duendecillos), Estos duendecillos se cuelan en 
los programas de muchas formas diferentes, 


Los ordenadores obedecen instrucciones escritas en BASIC, y 
el BASIC tiene reglas muy estrictas, Si no se siguen estas 
reglas, los programas no funcionan, Esto puede suceder 
porque el programa que se ha introducido contiene lo que es 
conocido como un "ERROR DE SINTAXIS", 


Si es éste el caso, es posible que el Spectrum nos diga cuál 
es la linea del programa que no ha comprendido, Examinar esa 
línea y compararla con la misma línea del listado impreso, 
Algunas veces el error es obvio y fácil de corregir, 

LOS ERRORES DE ESPACIAMIENTO Y DE PUNTUACION 
Cuando se escribe un programa en el ordenador hay que 


copiarlo correctamente, Incluso cosas pequeñas (como omitir 


Ll 


un espacio entre dos palabras o dejar demasiados espacios 
entre unos simbolos determinados) pueden hacer que el 
programá no dé resultado, 


También hay que tener cuidado con los signos de puntuación, 
ya que son más importantes de lo que parecen, El simbolo 
punto y coma (;) tiene un significado absolutamente 
diferente del simbolo dos puntos (;) y no se deben 
confundir, . 


LOS CEROS Y LAS O. LOS 1 Y LAS I Y L 


Un error bastante común entre los principiantes es confundir 
el 0 (cero) con la 0 (la letra 0), Utilizar siempre la tecla 
del 0 cuando se introducen números, También hay que tener 
cuidado de no utilizar las létras Lo 1 en lugar de la cifra 
1, Cuando el ZX Spectrum trabaja con números no acepta una 
"0" por un "0" o una *1" por un *1”, 


BORRADO DE LA PANTALLA 
Si se quiere borrar la pantalla, introducir la palabra clave 
CLS y pulsar ENTER, Esto no se puede hacer cuando se está 
escribiendo una línea de programa, 
BORRADO DE UN PROGRAMA 
Cuando se quiere comenzar de nuevo o simplemente pasar a 
otro programa, es conveniente borrar antes el programa 
anterior de la memoria del ordenador, Para hacerlo, 
introducir la orden; 

NEW 
y después pulsar ENTER, Hay que tener mucho cuidado, pues 


una vez borrado un programa ya no se puede recuperar, 
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MICROMATEMATICAS 


El 2X Spectrun es un instrumento de enormes posibilidades; 
puede efectuar operaciones aritméticas y cálculos diversos 
mucho más rápidamente que cualquier persona, 


Los microordenadores tienen memoria, y en esa memoria 
almacenan todos los números utilizados en un programa o en un 
cálculo, Pero la memoria del ordenador es limitada, lo que 
significa que si trabaja con números muy grandes o con muchas 
cifras decimales no siempre los trata de la forma que era de 
esperar, 


Por ejemplo, si se pide al 2% Spectrum que imprima el número 
,888888888888, lo que imprimirá es el número ,88888889, y si 
se le pidiera que imprima el número 12000000000, imprimiría 

esto: 


1,2E+10 
(que es 1,2 por 10 elevado a la décima potencia) 


Ese redondeo de las fracciones decimales significa que el 
ordenador no tendrá en algunos casos una precisión del 100%, 
Lo más probable es que ello no tenga ningún efecto en la 
nayoria de los cálculos y, a cambio, permite que el ordenador 
maneje números muy grandes sin agotar el espacio de memoria 
disponible, 
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PROGRAMA 1: MULTIPLICACION 


El programa | es un simple programa de cálculo, Pide que se 
introduzcan dos números (INPUT) y luego los multiplica, 


La línea 20 se sirve de la instrucción CLS para limpiar la 
pantalla, No olvidar introducir todas las palabras BASIC como 
reservadas (pulsando una tecla), no letra a letra, 


Las líneas 30 y 40 imprimen el título del programa, La 
palabra PRINT, incluida sin más en la línea 50, imprime 
debajo una línea en blanco, Las líneas 60 y 90 imprimen las 
preguntas que hace el programa, 


Las líneas 70 y 100 hacen uso de la palabra INPUT, que 
permite almacenar en memoria la información escrita por el 
usuario del programa, En este programa, las dos instrucciones 
INPUT almacenan los dos números introducidos, utilizando para 
ello las letras A y B, Las líneas 80 y 110 imprimen esos 
núneros en la pantalla, 
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Los programas suelen utilizar letras para representar números 
que reciben el nombre de variables porque la información 
escrita puede cambiarse cada vez que se ejecuta el programa, 


La línea 130 imprime el resultado, El signo de multiplicar en 
BASIC es el asterisco (X), Si se quiere imprimir el signo de 
la multiplicación hay que poner el asterisco entre comillas, 
pero no si se quiere que el programa efectúe sólo la 
multiplicación, Obsérvese también la disposición de signos 
del punto y coma (;) en la línea 130; se ponen para que toda 
la información salga impresa en la misma línea, 


Introducir: 


10 REM X MULTIPLICACIÓN x 
20 BORDER 5: PAPER 5: CLS 
30 PRINT "MULTIPLICACIÓN" 
40 PRINT "ARRRRRLOROnan" 
50 PRINT 
60 PRINT "ESCRIBA EL PRIMER NUMERO" 
70 INPUT A 
80 PRINT A 
90 PRINT "ESCRIBA EL SEGUNDO NUMERO" 
100 INPUT B 
110 PRINT B 
120 PRINT 
130 PRINT A;"X"¡B:"=";AXB 
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COMO SE RESPONDE AL ORDENADOR 


Cuando haya terminado de escribir este programa, teclee la 
palabra reservada RUN, 


En la pantalla aparecerá el titulo del programa y un cursor 
intermitente en la esquina inferior izquierda de la pantalla, 
Escriba la respuesta, Saldrá en la pantalla al lado del 
cursor, 


Cuando se responda a una pregunta del ordenador, no olvidar 
pulsar ENTER tras escribir la respuesta, Si no se hace así, 
el programa no podrá seguir adelante, 


PROGRAMA 2: ADICION 


El programa 2 suma tres números que el usuario introduce 
(INPUT) en las líneas 70, 100 y 130, 


En un programa se pueden poner las variables que se quiera, 
siempre y cuando se dé a cada una un nombre diferente, Este 
programa utiliza los nombres de variable X, Y y 2, pero 
también serían válidas otras letras, como P, Q y R, 


LAS INSTRUCCIONES REM 


En la línea 10 de los programas de este libro se ve la 
llamada instrucción REM, REM viene de REMARK (observaciones 
en inglés), Las instrucciones REM son como pequeños títulos 


que dan información relativa al programa y que pueden ser de 
gran ayuda para quienes examinen el listado, Las 
instrucciones REM no influyen en absoluto en la ejecución de 
los programas que las llevan y, por lo tanto, pueden ser 
ignoradas, Pero es más práctico incluirlas, 
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Introducir: 


10 REM * ADICION 4 

20 BORDER 5; PAPER 6; CL> 

30 PRINT "ADICION" | 

40 PRINT "XRLXIRRA 

50 PRINT 

60 PRINT "ESCRIBA EL PRIMER NUMERO" 
70 INPUT X 

80 PRINT X 

90 PRINT "ESCRIBA EL SEGUNDO NUMERO” 
100 INPUT Y 

110 PRINT Y 

120 PRINT "ESCRIBA EL TERCER NUMERO" 
130 INPUT 2 

140 PRINT 2 

150 PRINT 

160 PRINT X 04" Vi 04 2: 2% M4 Y+2 


Cuando los programas solicitan números, se pueden introducir 
números enteros o números decimales, Para escribir el signo 
de la coma decimal (el punto decimal en este caso), pulsar 

simultáneamente la tecla SYMBOL SHIFT y la tecla M, En el 2X 
Spectrunm+, tiene asignada una tecla propia, 


PROGRAMA 3; DIVISION 


El programa 3 muestra la forma de empleo del signo de la 
división, El ZX Spectrum no utiliza, a tal efecto, el signo 
tradicional de la división; utiliza el signo / , 


Este programa presenta una forma diferente de usar las 
variables; se puede utilizar la misma letra para varias 
variables pero identificando cada una, además, con un número, 


Las líneas 70 y 100 utilizan las variables Nl y N2, La letra 
debe ir primero y el número después, El empleo de variables 
de este tipo puede ser de gran utilidad para identificar 
grupos de información mediante una letra inicial común, En 
este tipo de nombres de variable no están permitidos los 
espacios; el nombre de variable N 1 sería ilegal, 
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Introducir: 


10 REM Xx DIVISION UTILIZANDO EL SIGNO / * 
20 BORDER 6: PAPER 6: CLS 

30 PRINT "DIVISION" 

40 PRINT "=====--- " 

50 PRINT 

60 PRINT "ESCRIBA EL PRIMER NUMERO" 
70 INPUT NI 

80 PRINT NI 

90 PRINT "ESCRIBA EL SEGUNDO NUMERO" 
100 INPUT N2 

110 PRINT N2 

120 PRINT 

130 PRINT NI;"/"¡N2;"=":N1/N2 


PROGRAMA 4; UN CONTADOR 
El programa 4 hace uso de un contador que podría servir para 
llevar un marcador de parciales o totales, Este programa 


permite sumar los números que se quiera, Para averiguar el 
total basta introducir un 0, 
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ENTEROS 


Con la palabra reservada INT se redondean los números 
decimales a números enteros, 


En el programa 3, cambiar la línea 130 por la siguiente: 


130 PRINT N1;"/";N2;%=";INT(N1/N2) 


INT redondea siempre por abajo: el entero de 1,99999, por 
ejemplo, es el 1 (no el 2), 


Introducir: 


10 REM * CALCULADORA + 

20 BORDER 2; PAPER 5: CLS 

30 PRINT "CALCULADORA" 

40 PRINT "RRE" 

50 PRINT 

60 LET sum=0 

70 PRINT "NUMERO POR FAVOR ":; 
80 INPUT numero 

90 PRINT numero 
100 LET sum=sum+numero 
110 IF numero=0 THEN 60 TO 130 
120 60 TO 70 
130 PRINT '"TOTAL = "sum 


La línea 20 cambia el color de la imagen de la pantalla por 
efecto de las palabras BORDER y PAPER: BORDER cambia el color 
del borde y PAPER cambia el color del fondo, Los números que 
van a continuación representan los colores concretos, 


Si se mira encima de las teclas l a 7 y 0 se verán los 
colores que corresponden a cada tecla, Siempre que se cambien 
los colores de la imagen mediante una línea de instrucciones, 
hay que poner la instrucción CLS al final de la línea, 
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Este programa utiliza los nombres de variable largos "sum" y 
"numero", Asi es más fácil entender los listados, 


La linea 60 asigna a la variable “sum" el valor inicial 0, La 
línea 80 introduce el número escrito por el teclado y la 
línea 100 suma ese número a "sum", 


La línea 110 comprueba si ha sido introducido un 0, En caso 
positivo, el programa pasa a la línea 130 e imprime el valor 
final de la variable "sum"; en caso negativo va a la línea 70 
que ofrece la posibilidad de añadir un número más, 


La línea 130 incluye el signo del apóstrofe (tecla 7), El 
apóstrofe a continuación de PRINT deja una línea en blanco, 
Surte por lo tanto los mismos efectos que la palabra PRINT, 
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MENSAJES INFORMATIVOS 


Al término de la ejecución de un programa sale en la esquina 
inferior izquierda de la pantalla un mensaje como éste; 


0 OK, 130;1 


Es lo que se llama un mensaje informativo, Hay muchos tipos 
de mensajes informativos y cada uno tiene un significado 
concreto, El anterior dice que el programa ha llegado a la 
línea 130 y ha sido ejecutado totalmente y sin problemas, 


En la Guia de Programacion en BASIC suministrada con el 2X 


Spectrum se puede encontrar una lista completa de estos 
mensajes, 


ORDENES DIRECTAS 


No hay necesidad de escribir un programa para resolver 
ciertos problemas, Por ejemplo, para calcular 12 veces 35 
basta teclear 


PRINT 12335 


y pulsar ENTER, Se tendrá la respuesta directamente, 


El programa 5 imprime la tabla de aultipldcar del número que 
el usuario elija, 


En este programa, una de las variables, T, representa no a un 
número sino a una gama de números; es así porque el programa 
incluye un BUCLE, Un bucle repite parte de un programa un 
número determinado de veces, 
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La línea 50 pide elegir un número, La línea 60 lo introduce 
(INPUT) como la variable "numero”, 


La línea 100 establece un bucle que asigna a T una gama de 
valores comprendidos entre el 1 y el 10, Como este tipo de 
bucle incluye las palabras FOR y NEXT, recibe el nombre de 
bucle FOR,,,NEXT, 


La línea 110 multiplica por T el número elegido, "numero", 
Tal como establece la linea 100, T empieza por el 1, Una vez 
efectuado el cálculo con este valor de T, el programa pasa a 
la línea 120, La instrucción NEXT T envía el programa de 
vuelta a la linea 100 para tomar el siguiente valor de T y 
multiplicarlo por "numero", Sigue operando así hasta que T 
llega al número 10, momento en que se para, 


En la pantalla se verá la tabla de multiplicar del número 
elegido anteriormente, Hacer pruebas con números decimales y 
se verá lo rápido que trabaja el 2X Spectrun, 
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Introducir: 


10 REM * FORMA DE EMPLEO DE UN BUCLE * 
20 BORDER 4: PAPER 4; CLS 

30 PRINT "TABLA DE MULTIPLICAR" 

40 PRINT "RR daad ando" 

50 PRINT'"ELIJA UN NUMERO" 

60 INPUT numero 

70 CLS 

80 PRINT "TABLA DE MULTIPLICAR DEL":;numero 
90 PRINT 
100 FOR T=1 TO 10 
110 PRINT T1;"*":numero;"=";T*Xnumero 
120 NEXT T 


PROGRAMA 6: JUEGO DE DADOS 


El programa 6 muestra que el 2% Spectrum está capacitado para 
sacar números aleatoriamente, es decir, al azar, 


Con la palabra RND se está en condiciones de programar el 
ordenador para que elija números al azar, lo cual abre la 
posibilidad de jugar de varias maneras con el ordenador, 


La línea 20 pone a 0 las variables "zxpuntos" y "jugpuntos”, 
Estas variables son los marcadores del 2X y del jugador, 


La línea 60 "tira" el dado del ordenador, Esta línea muestra 
un sistema para que el 2X Spectrum saque un número al azar, 
El número que sigue al signo de multiplicar corresponde al 
número más alto que queremos que salga; como estamos tirando 
un dado, no queremos que el número sea mayor de 6, La palabra 
INT redondea el número decimal resultante al número entero 
más cercano, Como redondea por abajo hay que afladir un | para 
que la respuesta no pueda ser 0, 


La línea 70 imprime el dado del ordenador, La línea 80 tira 
el dado del jugador y la línea 90 imprime el resultado, 
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Las lineas 100 y 110 hacen uso del signo >, Como el signo > 
significa "mayor que", la línea 100 comprueba si el ordenador 
ha sacado un número más alto que el jugador: si es así, esa 
misma línea incrementa en | el marcador del ordenador 
("zxpuntos"), La línea 110 comprueba si el jugador ha sacado 
un número más alto que el ordenador; si es asi, esa misma 
línea incrementa en | el marcador del jugador ("jugpuntos"), 


Si el dado del jugador y el del ordenador son iguales, los 
marcadores no varían, Las líneas 120 a 140 imprimen el 
resultado actual, 


Las lineas 50 y 150 se sirven de la palabra PAUSE para 
obligar al programa a hacer una pequeña pausa, Cuanto mayor 
sea el número que sigue a PAUSE más larga será la pausa, 


pulsa la tecla s y después ENTER, el programa limpia la 
pantalla vuelve a la línea 40 y tira otra vez los dados, Si 
se pulsa la tecla n, o cualquier otra, el programa pasa a la 
línea 190, que imprime una cordial despedida, 


La línea ca y si se quiere volver a jugar, Si se 


Introducir: 


10 REM % JUEGO DE DADOS * 

20 BORDER 0; PAPER 7: CLS 

30 LET zxpuntos=0; LET jugpuntos=0 

40 PRINT'" JUEGO DE DADOS" 

50 PRINT * daa"; PAUSE 50 

60 LET zx=INT(RNDX6)+1 

70 PRINT " El Spectrum saca un "¡zx 

80 LET jusINT(RNDA6)+1 

90 PRINT " El jugador saca un "¡ju 
100 IF zx>ju THEN LET zxpuntos=zxpuntos+] 
110 IF ju»zx THEN LET jugpuntos=jugpuntos+] 
120 PRINT'' " marcador hasta el momento: " 
130 PRINT'* * Spectrum="'zxpuntos 
140 PRINT'' " Jugador=";jugpuntos 
150 PAUSE 50 
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JJEGO DE DADOS 
ELLAS 
EL 5pectrom saca un S 
EL jugador saca un 1 


marcador hasta el momento: 
Spectrim=2 
JIGa dor =0 


Otra tirada, s o n? 


160 PRINT'* " Otra tirada, s o n?" 
170 INPUT as 

180 1F a$="s5" THEN CLS; GO TO 40 

190 PRINT' "Hasta la vista" 


DESACTIVACION DE LAS MAYUSCULAS 


Si se pone una $ mayúscula en la línea 170, el programa 
pasaría a la linea 190, Ocurre así porque el 2X Spectrum no 
considera las letras mayúsculas iguales que sus 
correspondientes minúsculas, Se puede garantizar que el 


Cursor CAPS LOCK (letras mayúsculas) está desactivado 
escribiendo en la línea 45 lo siguiente: 


POKE 23658,0 


Lo que se escriba después, a modo de respuesta, sale impreso 
automáticamente en minúsculas, 
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CUANTAS CASAS HA 


El programa 7 utiliza un bucle para poner cinco preguntas, 
cada una de las cuales pide al usuario que cuente el número 
de casas que hay en la pantalla en ese momento, Al final, el 
programa presenta al usuario su cuenta de resultados, 


En las líneas 20 a 90 se hace uso de la prestación Gráficos 
Definidos por el Usuario para definir la figura de una casa, 
Escribir primero las líneas 10 a 90 y ejecutarlas, No se verá 
nada en la pantalla, aparte del mensaje informativo usual, 


28 


CUANTAS _ CASAS HAY? 11 
so SIENTO, HAY 12 CASAS 
ULSE UNA TECLA PARA CONTINUAR 


Seguir ahora escribiendo el programa, Para escribir la figura 
de la casa en la línea 190, una vez escrita la primera parte, 
pulsar la tecla CAPS SHIFT y la tecla 9 (o la tecla GRAPH en 
el 2% Spectrum+), Saldrá el cursor 6, Pulsar ahora la tecla A 
y luego la tecla E, y se verá una casa, Ocurre asi porque las 
lineas 10 a 190 han redefinido las teclas A y B de forma que 
correspondan a las dos mitades de la casa, 


La línea 110 determina el número de preguntas que hará el 
ordenador, Para que el programa haga más de 5 preguntas basta 
cambiar ese 5 por un número mayor, 
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Las lineas 120 a 149 dibujan un marco, 


La linea 150 elige, al azar, el número de casas que saldrán 
en la pantalla, Para aumentar el grado de dificultad del 
juego, poner un número más grande en el interior del 
paréntesis de esa línea, La linea 180 elige el lugar de la 
pantalla donde van a ir a parar las casas, 


La línea 230 pregunta cuantas casas hay, El usuario introduce 
la respuesta en la línea 240 como la variable "numero", Las 
lineas 260 y 270 comprueban si esa respuesta es correcta, 


Las líneas 260 y 270 incluyen la palabra G0 SUB, que envía el 
programa a una SUBRUTINA que comienza en el número de línea 
que sigue a 60 SUB, Una subrutina es un grupo de líneas 
(separadas de la parte principal del programa), que el mismo 
puede utilizar en caso de necesidad, 


La línea 310 presenta en pantalla el marcador del usuario, y 
la línea 320 se sirve de la instrucción PAUSE 0 para hacerque 
el programa quede detenido hasta que el usuario pulse una 
tecla, Una vez pulsada, el programa salta a la línea 390, que 
restablece la imagen de la pantalla, 


CASAS OCULTAS 


El programa 7 puede dar muchos dolores de cabeza, Si hay dos 
casas dibujadas en el mismo lugar de la pantalla, una de 
ellas quedará montada sobre la otra, lo que significa que 
habrá dos en la misma posición y sólo se verá una, 


Cuando se tenga la total seguridad de haber contado bien las. 
casas y el 2% Spectrum diga que es incorrecto porque hay una 
casa más, esa es con toda probabilidad la causa, 


¡IMPORTANTE! Teclear y ejecutar las líneas 10 a 90 antes de 
escribir el resto de este programa, 
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10 REM * CUANTAS CASAS HAY? * 

20 FOR n=0 TO 7 

30 READ row; POKE USR "a"+n,row 

40 NEXT n 

50 DATA 4,31,63,127,39,38,62,62 

60 FOR n=0 TO 7 

70 READ row; POKE USR "b"+n, row 

80 NEXR n 

90 DATA 16,248,252,254,228,100,124,124 
100 LET puntos=0: LET cuestiones=0; LET col=1 
110 FOR T=1 TO 5 

120 BORDER 0; PAPER 0; INK 7; CLS 

130 PLOT 0,30; DRAW 255,0; DRAW 0,130 

140 DRÁAW -255,0;DRAW 0,-130 

150 LET pueblo=INT(RND+12)+4 

160 FOR H=1 TO pueblo 

170 INK col 

180 LET x=(RND*X28)+1; LET y=(RNDX13)+3 

190 PRINT AT y,x;" am" 
200 LET col=co1+1; 1F col>8 THEN LET col=1 
210 NEXT H 
220 INK 7 
230 PRINT AT 19,0;"CUANTAS CASAS HAY? "; 
240 INPUT numero 
250 PRINT numero 
260 1F numero=pueblo THEN GO SUB 340 
270 IF NOT numero=pueblo THEN GO SUB 370 
280 PRINT "PULSE CUALQUIER TECLA PARA CONTINUAR" 
290 PAUSE 0; NEXT T 

300 CLS 

310 PRINT "HA ACERTADO "¡puntos;" VECES DE 5 INTENTOS" 
320 PAUSE 0 

330 GOTO 390 , 

340 PRINT "CORRECTO, HAY "¡pueblo;" CASAS" 
350 LET puntos=puntos+] 

360 RETURN 

370 PRINT "LO SIENTO, HAY ";pueblo:"CASAS" 
380 RETURN 

390 BORDER 7; PAPER 7; INK 0 


31 


LISTADO DE PROGRAMAS LARGOS 

Al listar programas largos, la pulsación de la tecla ENTER 
sólo presenta en pantalla la primera parte del programa, Para 
ver el resto teclear LIST, Al hacerlo sale en la pantalla 
este mensaje 


scroll? (¿torrimiento?) 


Este mensaje pregunta si se quiere que el listado "corra" por 
la pantalla, La pulsación de la tecla Y hará que se vea la 
siguiente parte del programa y la pulsación de la tecla N 
detendrá el corrimiento del listado, 


PROGRAMA 8: EXAMINADOR DE SUMAS 


El programa 8 pone a prueba el dominio de la operación de 
sumar, A tal efecto selecciona números al azar y pide al 
usuario que los sume, 


La línea 30 pone a 0 la variable "puntos" (el marcador), Cada 
vez que la respuesta dada por el usuario es correcta, ese 
marcador es incrementado en una unidad, 


La linea 40 establece un bucle que tiene la misión de que el 
programa haga 10 preguntas, 


Las líneas 50 y 60 sacan al azar los dos números que hay que 
sumar, Para aumentar el grado de dificultad del programa 
basta poner números más grandes en el paréntesis, Se puede 
hacer más difícil todavía no poniendo INT, La línea 70 
almacena la respuesta correcta en la variable "sun", 


La línea 80 pide sumar los números y presenta la respuesta 
dada por el usuario, Esta respuesta es almacenada en la 
variable "solucion" y es comparada, lineas 100 y 110, con la 
respuesta correcta, "sum", En función de que la respuesta sea 
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correcta o no, el programa pasa a la subrutina de la línea 
190 o a la subrutina de la línea 210, 


La linea 160 imprime el marcador, Si los puntos obtenidos son 
nás de 8, el programa le reserva un agradable mensaje, 


Si no se pusiera la palabra STOP de la línea 180, el programa 
pasaría directamente a las subrutinas y se bloquearía, 


Introducir: 


10 REM * EXAMINADOR DE SUMAS * 

20 BORDER 5: PAPER 6: INK 1; CLS 

30 LET puntos=0 

40 FOR T=] TO 10 

50 LET numl=INT(RNDX10)+5 

60 LET num2=INT(TNDX10)+5 

70 LET sun=num!+num2 

80 PRINT'" Cuanto es "¡numl;" + "¡num2;" ?" 
90 PRINT: INPUT solucion 

100 IF solucion=sum THEN GO SUB 190 . 

110 IF NOT solucion=sum THEN GO SUB 210 

120 PAUSE 100 

130 CLS 

140 NEXT T 

150 CLS 

160 PRINT'" MARCADOR = "¡puntos;" ACIERTOS DE 10 
PREGUNTAS" 

170 IF puntos>8 THEN 60 SUB 300 

180 PAUSE 0; STOP 

190 PRINT'" "¡solucion;" es correcto, Muy bien," 

200 LET puntos=puntos+1; RETURN 

210 PRINT'" ":¡solucion;" no es correcto,” 

220 PRINT'" La respuesta correcta es "¡sum 

230 RETURN 

300 PRINT'" Sabes demasiado para esto,” 

310 PRINT " Haz otra prueba cambiando los " 

320 PRINT " numeros de las líneas 50 y 60," 

330 RETURN 
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LINEAS MULTI INSTRUCCIONES 


La mayoría de los programas de este libro hacen uso de las 
líneas nmulti-instrucciones, Estas líneas contienen varias 
instrucciones que podrían ir en líneas independientes pero 
que han sido agrupadas en una misma línea, separadas por el 
signo de dos puntos (;), Las líneas multi-instrucciones 
ahorran tiempo de tecleado y espacio de memoria, 


De todas formas, la lectura de listados de programas con 
nuchas lineas multi-instrucciones puede resultar difícil, 
Además, hay órdenes e instrucciones que no pueden ir en la 
misma línea, 


PROGRAMA 9; MAYOR QUE, MENOR QUE 


El programa 9 no es un programa propiamente dicho, Es un 
grupo de líneas a añadir al programa 8 para conseguir que 
preste ayuda cuando la respuesta dada es incorrecta, 


Estas líneas utilizan los símbolos > y <, El signo < 
significa "menor que", luego la línea 220 comprueba si la 
respuesta dada es incorrecta porque es demasiado pequeña, El 
signo > significa "mayor que", luego la línea 230 comprueba 
si la respuesta es un número demasiado grande, 
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El empleo de la instrucción 60 TO, que indica al ordenador 
que salte a una línea concreta del programa, hace que este 
grupo de líneas ofrezca al usuario otra posibilidad de 
responder a la pregunta, De hecho, el programa no permite 
pasar a la siguiente pregunta hasta que se haya dado la 
respuesta correcta, 


Si todavía se tiene el programa 8 en la memoria del 2% 
Spectrum , antes de escribir este programa borrar las líneas 
30, 170, 300, 310, 320 y 330, Para ello basta escribir cada 
número de linea y pulsar después ENTER, 


110 IF NOT solucion=sum THEN GO TO 210 

160 PRINT "Fin" 

200 RETURN 

220 IF soluciontísum THEN GO TO 240 

230 IF solucion>sum THEN GO TO 270 

240 PRINT'" La solucion dada es demasiado 
baja, Pruebe otra vez," 

250 PAUSE 150 

260 CLS: 60 TO 80 

270 PRINT'" La solucion dada es demasiado 
alta, Pruebe otra vez,” 

280 PAUSE 150 

290 CLS: 60 TO 80 
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PROGRAMA 10; MILLAS A KILOMETROS 

El programa 10 convierte millas a kilómetros, Las lineas 20 a 
50 componen la imagen de la pantalla, La línea 60 pide el 
número de millas, La línea 80 introduce esta cifra en la 
memoria del ordenador y la línea 90 la multiplica por 1,6 


para calcular el número de kilómetros correspondientes, La 
línea 100 imprime la respuesta, 


Introducir: 


10 REM * MILLAS A KILOMETROS X* 

20 BORDER 4: PAPER 4; CLS 

30 PRINT'"PASO DE MILLAS A KILOMETROS" 

40 PRINT *-==-==========e=onncamammao 

50 PRINT 

60 PRINT "Escriba el numero de millas:" 

70 PRINT 

80 INPUT millas 

90 LET kilom=millasx1,6 

100 PRINT millas:" millas = ":kilom:" kilometros” 
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PROGRAMA 11: CALCULADOR DE PORCENTAJES 


El programa 11 calcula porcentajes, Las lineas 20 a 70 
componen la imagen de la pantalla, La linea 80 pide escribir 
un número, que la linea 90 asigna a la variable numero, Las 
líneas 110 y 120 piden el porcentaje a calcular, que es 
almacenado por la línea 130 como la variable "porcentaje" 


La línea 140 calcula la solucion y las líneas 150 y 160 se 
encargan de imprimirla, 


Por último, las líneas 170 a 190 ofrecen la posibilidad de 
calcular otro porcentaje, 


Obsérvese el empleo de INPUT en la linea 180, No es necesario 
poner una instrucción PRINT antes de una INPUT para que salga 
impresa la pregunta; se puede poner la pregunta después de 
INPUT y a continuación de la variable a introducir, en la 
misma línea pero separada de la pregunta por un punto y coma, 
Esta linea hará que la pregunta se imprima en la línea 
inferior de la pantalla, 
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Introducir: 


10 REM % PORCENTAJES + 

20 BORDER 1; PAPER 1; INK 7; CLS 

30 PRINT'"CALCULADOR DE PORCENTAJES" 
A0-PRINT. “esas 
50 PRINT'"Este programa calcula" 

60 PRINT drid 

70 PRINT ] 

80 PRINT "Escriba el numero" 

90 INPUT numero 

100 PRINT 

110 PRINT ¿Que porcentaje de "¡numero 
120 PRINT "quiere saber?" 

130 INPUT porcentaje 

140 LET sol=numero*(porcentaje/100) 
150 PRINT'"El "¡porcentaje;"% de "¡numero;" es ":sol 
160 POKE 23658,8 

170 INPUT "Otra vez, S o N?":a$ 

180 IF A$="S" THEN 60 TO 20 


PROGRAMA 12: CALCULADOR DE AREAS 


El programa 12 aprovecha las prestaciones gráficas del 2% 
Spectrum para dibujar un rectángulo a escala, en base a las 
cifras introducidas, Además, da el área de ese rectángulo, 


Las líneas 30 a 190 explican el programa y piden la longitud 
de cada lado, 


Las líneas 200 a 340 programan la imagen de la pantalla; las 
líneas 200 a 240 dibujan la escala de la imagen y las lineas 
250 a 270 dibujan un rectángulo utilizando las variables 11 y 
12, introducidas en las líneas 130 y 140, 


Las líneas 280 a 340 hacen uso de las palabras PRINT AT, que 


imprimen palabras, números o figuras en un punto especifico 
de la pantalla, A efectos de la instrucción PRINT AT, la 
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CALCULADOR DE AREAS 


.B e 


LADO 1 251: 


pantalla del 2X Spectrum está dividida en una retícula de 32 
cuadros de ancho por 22 de alto, 


El primer número que sigue a PRINT AT representa la linea de 
la pantalla donde va a ir la impresión: las lineas están 
numeradas del 0 al 21, comenzando por arriba, El segundo 
número determina el lugar de esa línea donde van a salir 
impresas las palabras figuras o números; las posibles 
posiciones de impresión están numeradas del 0 al 31, de 
izquierda a derecha, 


La subrutina de la línea 400 se debe a las limitaciones 
dimensionales de la pantalla, La parte principal del programa 
dibuja el rectángulo a una escala que da lugar a que 
longitudes de los lados superiores a 50 correspondan a 
rectángulos mayores que la pantalla, 


En la escala utilizada cada centímetro corresponde a tres 
pixels, Pixel es el nombre dado a los bloques utilizados en 
las pantallas gráficas, Una pantalla gráfica tiene 255 pixels 
de ancho por 175 de alto, Para trabajar con números más 
grandes basta cambiar la escala sustituyendo el número 3 de 
las lineas 250 a 270 por un número menor, No olvidar cambiar 
también la graduación de la escala en la linea 230, 
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paj 
Escala en cm. l J 


Introducir: 


10 REM * AREA DEL RECTANGULO * 
20 BORDER 0; PAPER 0; INK 7; POKE 23653, 8 
30 PRINT "CALCULADOR DE AREAS" 


50 PRINT'"Este programa da el area" 

60 PRINT "de un rectangulo," 

70 PRINT'"Tiene que escribir las" 

80 PRINT "medidas del rectangulo," 

90 PRINT'" Escriba la longitud de cada" 
100 PRINT "lado en centimetros" 

110 PRINT'"No elija numeros superiores” 
120 PRINT "a 50 o inferiores a 5” 

130 INPUT "LADO 1";11 

140 INPUT "LADO 2";12 

150 IF 11>50 OR 1250 THEN 60 TO 400 

160 PAUSE 50 

170 PRINT'"Este programa dibujara ahora" 
180 PRINT "un rectangulo y dara su area" 
190 PAUSE 100: CLS 
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200 PLOT 180,0; DRAW 0,5: PLOT 180,0 
210 DRAW 60,0; PLOT 240,0; DRAW 0,5 
220 PRINT AT 20,22;"0" 

230 PRINT AT 20,29;"20" 

240 PRINT AT 21,8;"Escala en cm," 
250 PLOT 0,25; DRAW (11%3),0 

260 DRAW 0,(12%3); DRAW -(11%3),0 
270 DRAW 0,-(1243) 

280 INK 2: PRINT AT 0,20;"Un rectangulo" 
290 PRINT AT 1,20;"que mide " 

300 PRINT AT 2,20;11;" cm por ” 

310 PRINT AT 3,20;12;" cm” 

320 PRINT AT 4,20;"tiene un area" 
330 PRINT AT 5,20;"de ";11%12 

340 PRINT AT 6,20;"cm, cuadrados" 
350 PAUSE 0 

360 INK 0 

370 INPUT "Otra vez, S o N?"¡a$ 

380 IF a$="S" THEN CLS; GO TO 10 

390 STOP 

400 PRINT'"Ha elegido un numero demasiado" 
410 PRINT "grande para la pantalla," 
420 PAUSE 80; CLS: 60 TO 80 


PROGRAMA 13: CALCULO DEL AREA DE UN CIRCULO 


Algunas de las palabras reservadas del ZX Spectrum son 
funciones matemáticas, El programa 13 muestra la forma de 
empleo de una de ellas, PI, para calcular el área de un 
circulo, Pl es la palabra que está encima de la tecla M, 


Las líneas 20 a 60 explican el programa y piden la 
información necesaria, La linea 70 permite introducir el 
radio, "radio", del circulo, 


La línea 80 utiliza una fórmula para calcular el área, El 
simbolo *, que significa "elevado a", es el simbolo rojo de 
la tecla H, Las líneas 90 y 100 imprimen la respuesta, 
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dd OK, 100: 1 


Introducir: 


10 REM * AREA DEL CIRCULO * 

20 BORDER 0: PAPER 0: INK 7: CLS 

30 PRINT'"Este programa calcula " 

40 PRINT "el area de un circulo ", 
50 PRINT'"Cual es el radio del " 

60 PRINT "circulo, en centimetros?" 
70 INPUT radio 

80 LET area=PI*radiot2 

90 PRINT'"El area de ese circulo es” 
100 PRINT area;" cm, cuadrados" 


PROGRAMA 14; PRIORIDADES 


Cuando se utiliza el 2% Spectrum para hacer operaciones 
aritméticas se obtienen algunas veces respuestas totalmente 
inesperadas, Esto suele ser debido a las PRIORIDADES del 
ordenador, las cuales deciden el orden en que efectúa las 
operaciones, El programa 14 muestra este punto, 


La linea 20 calcula la solución de la operación 4+4X3 y da la 
respuesta 16, cuando era de esperar que fuera 24, 
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La linea 30 muestra los mismos números ordenados de diferente 
forma; ahora la suma 4+4 está encerrada entre paréntesis, 
Esta vez la respuesta sí es 24, Todo esto ocurre porque el ZX 
Spectrum sigue las siguientes reglas al hacer cálculos: 


Las operaciones entre paréntesis son efectuadas en 
primer lugar; después la multiplicación y la división 
y, a continuación, la adición y la sustracción, 


Las líneas 40 y 50 muestran un ejemplo similar, La línea 40 
efectúa la operación 8-2%2 y da la respuesta 4, cuando 
alguien pudiera esperar que fuera 12, La línea 50 hace uso 
del paréntesis y ahora la respuesta sí es 12, 


Introducir: 


10 REM * PRIORIDADES * 
20 PRINT 4+4%3 

30 PRINT (4+4)%3 

40 PRINT 8-2%2 

50 PRINT (8-2)%2 


PROGRAMA 15; EL CAJERO DE LA TIENDA 


El programa 15 pone a prueba la capacidad del usuario para 
hacer las funciones de cajero de tienda, Cada vez que se 
ejecuta el programa entra en la tienda un cliente y compra un 
cierto número de artículos (items), El usuario tiene que 
hacer la cuenta y calcular el cambio, 


Los artículos de la tienda y sus precios están almacenados en 
una MATRIZ, La línea 60 la define mediante la palabra DIM (de 
dimensión), Los números encerrados entre paréntesis definen 
el número de artículos que puede contener la matriz, 


Los artículos y precios de la matriz están relacionados en 


instrucciones DATA, líneas 350 a 420, La línea 70 establece 
un bucle que lee (READ) esos datos, Se pueden cambiar los 
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EDICION DE LOS PROGRAMAS 


Aunque se pueden modificar las líneas de un programa 
escribiéndolas de nuevo, hay un método más rápido, Editar 
(EDIT) esas líneas, 


Para hacerlo, es necesario llevar el símbolo > a la linea que 
se quiere cambiar, Listar el programa y después, en el 21 
Spectrun, pulsar al mismo tiempo CAPS SHIFT y la tecla 6; en 
el 2X Spectrun+, pulsar sólo la tecla con la flecha que 
apunta hacia abajo, En la pantalla aparece el simbolo >, 


Pulsar de nuevo estas teclas y el símbolo se moverá hacia 
abajo, Pulsar al mismo tiempo CAPS SHIFT y la tecla 7 (pulsar 
sólo la tecla de la flecha que apunta hacia arriba en el 
Spectrum+), y el cursor se moverá hacia arriba, 


Para la prestación EDICION (EDITING), llevar el símbolo > a 
la línea deseada y luego pulsar al mismo tiempo las teclas 
CAPS SHIFT y EDIT; la tecla EDIT es la tecla 1 en el 2X 
Spectrum, En el 2X Spectrum+ pulsar sólo la tecla EDIT, Ello 
lleva esa línea a la parte inferior de la pantalla, Ahora se 


datos si se quiere, pero los nombres de los artículos que 
compra el cliente deben estar siempre entre comillas, También 
se puede aumentar el número de artículos, siempre y cuando se 
sustituya el número 15 de las líneas 60 y 70 por el nuevo 
núnero de artículos, 


Las líneas 100 a 160 eligen, al azar, el número de artículos 
y sus nombres, La línea 150 lleva la cuenta del costo, 
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puede editar dicha línea, 


Pulsando al mismo tiempo CAPS SHIFT y la tecla 8 (en el 2% 
Spectrum+ pulsar sólo la tecla de la flecha que apunta hacia 
la derecha), se mueve el cursor a la derecha y borra, 
Escribir las modificaciones y pulsar ENTER, La línea editada 
sustituye a la línea anterior del programa, 


Para retroceder el cursor a la izquierda, pulsar al mismo 
tiempo la tecla CAPS SHIFT y la tecla 5; en el Spectrum+ 
pulsar sólo la tecla con la flecha que señala hacia la 
izquierda, 


Si quiere que el cursor vaya a una línea en particular, por 
ejemplo la línea 30, debe teclear; 


LIST 30 


Esto lleva el cursor directamente a la línea requerida, en 
este caso la línea 30, 


La línea 170 calcula el costo total; a esa cifra se ha sumado 
un 1 para garantizar que la cantidad de dinero que da el 
cliente es siempre mayor que el costo total, 


Las líneas 180 a 210 preguntan al usuario el cambio que en su 
opinión debe dar al cliente, y las lineas 220 y 230 
contrastan esa respuesta con la correcta, Las líneas 250 a 
290 dirán despues si la respuesta dada es correcta o no, 


45 


Y 


Este cliente ha comprado 
tinta 32 Ptas. 
tebeos 23 Ptas 
Leche 21 Ptas 

Et cliente le ha dado 77 Ptas 

£ 

Que cambio debe darle? 

0) 

Lo sien 5 Ptás 

es incorrecto. 

La cuenta asciende a 76 Ptas 

Intentelo otra vez. 

Introducir: 


10 REM * CAJERO DE TIENDA * 
20 BORDER 5: PAPER 5; CLS 
30 PRINT AT 1,10;"CAJERO DE TIENDA" 
40 INK 3; PRINT AT 2,10; "aaa aaa ooo! 
50 INK 0 
60 DIM 1$(15,9): DIM P(15) 
70 FOR N=1] TO 15 
80 READ I$(N),P(N) 
90 NEXT N 
100 PRINT'" Este cliente ha comprado" 
110 LET total=0: LET numero=(RNDX6)+1 
120 PRINT; FOR N=1 TO numero 
130 LET R=RNDX15 
140 PRINT TAB(5);I$(R);TABCIS):PCR):" Ptas," 
150 LET total=total+P(R) 
160 NEXT N 
170 LET caja=INT(total)+1 
180 PRINT'" El cliente le ha dado ":caja:" Ptas," 
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190 PRINT'" Que cambio debe darle?" 

200 LET correcto=(caja)-total 

210 PRINT; INPUT cambio 

220 1F cambio=correcto THEN GO SUB 250 

230 IF NOT cambio=correcto THEN 60 TO 270 

240 60 SUB 300; PAUSE 0; STOP 

250 PRINT'" ";¡cambio:" Ptas, es correcto, Muy bien," 
260 RETURN 

270 PRINT'" Lo siento,";¡cambio;" Ptas, es incorrecto," 
280 PRINT " La cuenta asciende a ";total:¡"Ptas," 
290 PRINT " Intentelo otra vez,": 60 TO 200 

300 POKE 23658,8 

310 PRINT; INPUT * Otra vez, S o N?":a$ 

320 IF a$="S" THEN RESTORE: 60 TO 20 

330 PRINT "Gracias, adios," 

340 RETURN 

350 DATA "prensa",60, "dulces", 135 

360 DATA "leche",90,"tebeos",45 

370 DATA "postales",15,"pan",75 

380 DATA "lapices", ,25,"papel",85 

390 DATA "cuadernos",112", "pilas" 64 

400 DATA "revistas" ,95,"tinta",105 

410 DATA "nata",83,"te" 118 

420 DATA "cafe" 283 


SOBRE LAS MATRICES 


Cuando se utilizan matrices para almacenar palabras, la 
instrucción DIM debe ir seguida por dos números entre 
paréntesis, El primero define el número de datos a almacenar 
y el segundo el número de letras a almacenar por cada 


concepto, Con palabras de diferente longitud, este número 
debe ser por lo menos de la magnitud de la palabra más larga, 


En el 2% Spectrum hay que utilizar una sola letra como nombre 
de la matriz, Al almacenar palabras, figuras o símbolos, el 
nombre de una sola letra debe ir seguido por un signo $, 
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El programa 16 pone a prueba el dominio del usuario de la 
operación de sumar, A tal efecto, pide que se examine una 
fila de números y se diga cuáles cree que son los tres 
números siguientes de la serie, 


Las lineas 30 a 150 introducen la idea con un ejemplo, 


La parte principal del programa comienza en la línea 210, que 
decide al azar el número en que está basada la serie, 


Las líneas 220 a 240 imprimen entonces los cuatro primeros 
números de la serie, y las líneas 250 a 300 piden al usuario 
que escriba los tres números que deben ir a continuación, No 
olvidar pulsar ENTER al terminar de escribir cada número, 


La línea 310 comprueba si los tres números son correctos, La 
palabra AND sirve aquí para enlazar las tres comprobaciones 
en una sola instrucción 1F,,,THEN,; sólo si los tres números 
son correctos salta el programa a la linea 380, 
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Si no se han dado las respuestas correctas, el programa pasa 
a las lineas 320 a 370, que dicen el número que el usuario 
debería haber sumado y le piden que lo intente otra vez, 


Cuando se esté en condiciones de aumentar el grado de 
dificultad de este programa, cambiar el número 12 de la línea 
210 por otro más alto, Si se elimina la palabra INT se 
sumarán números decimales, 


Introducir: 


10 REM * SERIES BASADAS EN LA SUMA * 
20 BORDER 6; PAPER 6; CLS 

30 PRINT "SERIES BASADAS EN LA SUMA" 

40 PRINT "=================o2223==222' 
50 PRINT 

60 PRINT "Este programa le dara 4" 

70 PRINT "numeros, Tiene que calcular" 
80 PRINT "los 3 siguientes, asi;" 

90 PRINT'TAB(1);" 2 5 8 11 2?.? ?” 
100 PAUSE 100 

110 PRINT'"La respuesta es, " 

120 PRINT'"14, 17 Y 20," 

130 PRINT'"Hemos sumado un 3 a cada" 


El listado continúa en la página siguiente 
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140 PRINT "numero para tener el siguiente" 
150 PRINT "numero de la serie,"; PRINT 

160 POKE 23658,8 

170 INPUT "Listo para empezar, S o N?":A$ 
180 IF A$="S" THEN GOTO 200 

190 PAUSE 0; STOP 

200 CLS 

210 LET num=INT(RNDX12)+1: PRINT 

220 FOR N=1 TO 4 

230 PRINT numkn;" "; 

240 NEXT n; PRINT 

250 PRINT "Escriba las respuestas" 

260 LET nl=num*4+num; LET n2=n1+nun 

270 LET n3=n2+nun 

280 INPUT "Primer numero?" ;al 

290 INPUT "Segundo numero?";a2 

300 INPUT "Tercer numero?";a3 

310 IF al=n1 AND a2=n2 AND a3=n3 THEN 60 TO 380 
320 PRINT'"No, esa respuesta es incorrecta," 
330 PRINT "Debe sumar "¡num;" a " 

340 PRINT "cada numero para tener el" 

350 PRINT "siguiente de la serie," 

360 PRINT "Intentelo otra vez," 

370 PAUSE 100; PRINT: 60 TO 280 

380 PRINT'"Correcto, Muy bien," 

390 PRINT "Sumar "¡num;" es la solucion correcta" 
400 PRINT; INPUT "Otra vez, S o N?":AS 
410 IF A$="S" THEN 60 TO 200 

420 PRINT * Gracias por jugar" 


PROGRAMA 17; UNA SERIE BASADA EN LA RESTA 


El programa 17 no es más que un conjunto de líneas para 
sustituir a las mismas líneas del programa 16, para poner a 
prueba la práctica del usuario en la operación de restar En 
primer lugar, grabar en cinta el programa 16, Luego listarlo 
y escribir las nuevas líneas; sustituirán a las versiones 
anteriores de las líneas del prograna 16, 
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Introducir: 


30 PRINT "SERIE BASADA EN LA RESTA" 

40 PRINT "============z==ccccccccccs====" 
90 PRINT'TAB(1);" 24 21 18 15 ? 2? 2" 
120 PRINT"*TZ, 9 y 5,” 

130 PRINT "Hemos restado 3 a cada" 

210 LET num=INT(RNDX8)+1:PRINT 

220 FOR N=8 TO 4 STEP-1 

260 LET nl=nunx4-num:LET n2=n1-nun 

270 LET n3=n2-num 

330 PRINT "Debe restar ":num:" de" 

390 PRINT "Restar "¡num;" era correcto" 


SERIES BASADAS EN LA A 


—_— 
Este progfama le dara 4 
numeros.Tiene que o 
tos 3 siguientes, i 
EP A E E E A A € 
La respuesta es, 
12, 9 y 6. 
Hemos restado 3 a 


ada 
numero para tener e siguiente 
numero de la serie. 


Listo para empezar, S o Na“ 
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PROGRAMA 16: GRANDES MUMEROS 


En la memoria del Z% Spectrum hay una cantidad limitada de 
espacio que está reservado para el procesamiento de números, 
El programa 16 muestra cuan rápidamente puede agotar el 
ordenador esa cantidad de memoria, 


La línea 20 asigna a X el valor 2 y la línea 30 eleva ese 
valor al cuadrado, lo que da el valor de 2, 4, La linea 40 
imprime este número, 


La línea 50 asigna entonces a X el valor 2 y la línea 60 
devuelve el programa a la línea 30 con este nuevo valor de Y, 


Este proceso sólo puede ser efectuado seis veces antes de la 
aparición en pantalla del mensaje "6 number too big, 30;:1" 
(Número 6 demasiado grande, 30;1") Esto significa que el 
ordenador no puede manejar un número tan grande, 


Introducir: 


10 REM % NUMEROS GRANDES * 
20 LET X=2 

30 LET Z=X12 

40 PRINT 2 

50 LET X=2 

60 60 TO 30 
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PROGRAMA 19: ELLIE EL ELEFANTE 


El programa 19 es un juego de adivinanzas que utiliza 
coordenadas X e Y, El programa dibuja en la pantalla una 
retícula de 5 por 5 cuadros y el jugador tiene que decir en 
qué cuadro cree que está escondido Ellie, el elefante, El 
jugador tiene diez oportunidades, pero tiene que recordar qué 
cuadros ha dicho anteriormente, Por consiguiente, el programa 
pone a prueba también la memoria del jugador, 


Como el programa 7, éste utiliza también la prestación 
Caracteres Definidos por el Usuario, En este caso el 
resultado es un elefante, 


Al escribir el programa, hacer un alto en la linea 120 y 
ejecutar directamente esa parte del programa, Cuando se 
llegue a las líneas 130, 480, 500 y 520, para imprimir el 
elefante pulsar la tecla A y luego la B en el modo gráfico 
(cursor 6), El resultado será la aparición del elefante, No 
olvidar desconectar después el modo gráfico, 


La línea 30 elige al azar el cuadro de la retícula donde se 
esconderá Ellie, 


Las líneas 150 a 200 imprimen los números que hacen las 
funciones de coordenadas de la retícula, Las líneas 210 a 240 
dibujan después la retícula, 


La línea 250 pone a | el contador "q", Este contador lleva la 
cuenta del número de intentos, 


Las líneas 270 a 300 piden al jugador que encuentre a Ellie 
introduciendo primero la coordenada X y luego la coordenada Y 
del cuadro donde cree que está escondido el elefante, Las 
líneas 310 a 330 contrastan esas respuestas con las 
correctas, 


La linea 310 comprueba si las dos coordenadas X e Y dadas por 
el jugador son correctas, Si lo son, ha adivinado el sitio 
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donde está escondido Ellie y el programa pasa a la línea 410, 


La línea 320 suma l a "q", el número de intentos realizados, 
y comprueba si es superior a 10; si lo es, el programa pasa a 
la linea 340, La línea 330 utiliza la palabra OR como parte 
de la instrucción IF para ver si uno de los dos números 
introducidos como coordenadas X o Y es incorrecto, Á no ser 
que ambos sean correctos el programa pasa a la linea 370, 


Las líneas 340 a 360 dicen donde estaba Ellie una vez 
consumados los diez intentos sin encontrarle, El programa 
pasa entonces a la línea 460 para mostrar el cuadro en el que 
estaba escondido el elefante, 


Las líneas 370 a 400 dicen que la respuesta es incorrecta y 
dan al jugador otra oportunidad al devolver el programa a la 
línea 260, : 


Las líneas 410 a 520 dicen al jugador que ha encontrado a 
Ellie y afladen color y efectos sonoros, 
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Por último, las líneas 530 a 560 preguntan al jugador si 
quiere jugar otra vez; si la respuesta es positiva, el 
programa vuelve al principio, Obsérvese la palabra RESTORE 
puesta en la línea 20, Es necesaria para restablecer todos 
los datos; sin ella, el programa se bloquearía aquí, 


Es posible realizar versiones propias de este programa 
diseñando una retícula más grande o variando los efectos 
sonoros y gráficos, La mejor forma de aprender a programar 
consiste en hacer experimentos y disfrutar haciéndolos, 


Ejecutar las líneas 10 a 110 antes de escribir el resto del 
programa, 


10 REM % ELLIE EL ELEFANTE x 

20 RESTORE: CLS 

30 LET ex=INT(RNDX5)+1; LET ey=INT(RNDX5)+1 
40 FOR n=0 TO 7 

50 READ r; POKE USR "a"+n,r 

60 NEXT n 

70 DATA 60,255,191,255,175,141,220,28 
80 FOR n=0 TO 7 

90 READ r: POKE USR "b"+n,r 

100 NEXT n 

110 DATA 0,252,254,254,254,246,6,14 
120 REM * IMAGEN DE LA PANTALLA * 
130 PRINT AT 2,20;" mm Ellie el" 
140 PRINT AT 3,20;" Elefante" 
150 FOR a=1 TO 5 

160 PRINT AT 0,(ax3)+1;a 

170 NEXT a 

180 FOR d=1 TO 5 

190 PRINT AT (dX3)-1,0;d 

200 NEXT d 

210 FOR y=164 TO 44 STEP-24 

220 PLOT 28,y: DRAW 120,0; NEXT y 
230 FOR x=28 TO 148 STEP 24 


El listado continúa en la página siguiente 
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240 PLOT x,164; DRAW 0,-120: NEXT x 

250 LET q=1 

260 PRINT AT 5,20;" Turno; ":q 

270 PRINT AT 17,0:"Eres capaz de encontrar a Ellie?” 
280 PRINT AT 19,0;" 

290 INPUT "Coordenada X (no superior a 5)":x 

300 INPUT "“Coordenada Y (no superior a 5)":y 

310 IF x=ex AND y=ey THEN 60 TO 410 

320 LET q=q+1:" IF q>10 THEN GO TO 340 

330 IF NOT x=ex OR NOT y=ey THEN G0 TO 370 


340 PRINT AT 19,0;" " 
350 PRINT AT 17,0;"Lo siento, Ellie estaba en "; 
360 PRINT ex:","¡ey;" "60 TO 460 


370 PRINT AT 17,0: "Lo siento, Ellie no esta en "; 
380 PRINT x:;",";y;" 

390 PRINT "Dtra vez?" 

400 PAUSE 100: 60 TO 260 

410 FOR b=1 TO 3 

420 FOR n=-30 TO 60 STEP 10 

430 BEEP ,025,n; NEXT n; NEXT b 

440 PRINT AT 17,0; "Muy bien, Ellie esta en”; 
450 PRINT x:" ";y;" 

460 LET px=(ex*3)+1; LET py=(eyX*3)-1 
470 FOR n=1 TO 20; INK 3 

480 PRINT AT py, px;”" em " 

490 PAUSE 5: INK 7 

500 PRINT AT py, px;" Hr " 

510 PAUSE 5; NEXT nm: INK 0 

520 PRINT AT py,px;" mm " 

530 INPUT "Otra vez, S o N?" 

540 POKE 23658,8; INPUT a$ 

550 IF a$="S" THEN 60 TO 20 

560 PAUSE 50; CLS 

570 PRINT "FIN DEL JUEGO" 
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EJECUCION DE UNA PARTE DE UN PROGRAMA 


Cuando se trabaja con programas largos, algunas veces sólo 
hay que ejecutar una determinada sección y convendría, por lo 
tanto, que no fuera preciso ejecutar para ello todo el 
programa, Por ejemplo, puede darse el caso de querer ejecutar 
un programa pero sólo a partir de la línea 200, Para hacerlo 
basta teclear 


60 TO 200 
Esto no siempre funciona (pueden salir algunas variables no 


definidas en esa parte del programa), pero en cualquier caso 
puede ahorrar mucho tiempo, 


TECLAS SONORAS CON INPUT 


Al escribir programas que piden información mediante 
instrucciones INPUT, se puede programar el Spectrun para que 
que emita un sonido audible cada vez que se pulsa una tecla, 
Para hacerlo, teclear lo siguiente como una línea más del 
programa; 


POKE 23609,50 
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LARGAR 


12 


ALMIALEMAR 


Los programas se pueden "almacenar", es decir grabar, en una 
cinta cassette; así se pueden utilizar indefinidamente, 


Conectar el aparato de cassette al ordenador, poner una cinta 
virgen y comprobar que ha sido rebobinada hasta el comienzo, 


El 2% Spectrum dispone de una conexión especial constituida 
por dos cables unidos, cada uno con una clavija en ambos 
extremos, Para almacenar programas, conectar sólo una de 
estas clavijas al enchufe MIC que hay detrás del ordenador y 
conectar el otro extremo del cable al enchufe MIC del aparato 
grabador, Comprobar que las dos clavijas pertenecen a la 
misma sección del cable, 


Antes de comenzar, asegurarse de haber entendido la forma de 
cargar y almacenar los programas, Escribir un programa corto 
e introducir; 


SAVE " 
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SAVE es una palabra clave (tecla $), Para poner un nombre al 
programa elegir uno que lo describa, Por ejemplo, el programa 
se podría llamar JUEGO, Escribir el nombre del programa y 
cerrar las comillas, (Es obligatorio utilizar las comillas,) 
Ahora debe haber en la pantalla; 


SAVE "JUEGO" 


Pulsar la tecla ENTER y se verá en la pantalla el siguiente 
mensaje; 


Start tape, then press any key, 
(Conectar grabador, después pulsar cualquier tecla) 


Pulsar los botones RECORD y PLAY del aparato grabador y 
después pulsar cualquier tecla, Se verá en la pantalla una 
serie de franjas transversales de color rojo y azul claro, 
seguidas por algunas franjas más estrechas de color azul y 
anarillo, Esto sucede dos veces, Cuando el programa ha sido 
cargado, aparece el siguiente mensaje; 


0 0K, 0;1 


Este mensaje significa que el programa ha sido almacenado, 
Pulsar el botón STOP del grabador, 


CARGA 


Ahora que se tiene el programa grabado, se puede volver a 
"cargar" en el ordenador, En primer lugar, introducir la 
orden NEW y después pulsar ENTER, Esto asegura que la memoria 
está vacía, 


Ahora hay que conectar una clavija del otro cable en el 
enchufe EAR que hay detrás del 2X Spectrum y la otra clavija 
en el enchufe EXT SP o EAR del aparato grabador, Desconectar 
también la clavija del enchufe MIC del ordenador; si no se 
hace asi se podrían tener problemas al cargar programas, 
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Rebobinar hasta el principio de la cinta e introducir el 
nensaje; 


LOAD "JUEGO" 


(LOAD es una palabra clave asociada a la tecla J), Pulsar la 
tecla ENTER y después el botón PLAY del aparato grabador, 
Tras un corto espacio de tiempo sale en la pantalla la misma 
configuración de franjas de colores de la grabación, El 
nombre del programa también sale en la pantalla, Después se 
ve el mensaje: 


0, OK 0;1 


Esto significa que el programa ha sido cargado y que, por lo 
tanto, se puede ejecutar (RUN), Pulsar el botón STOP del 
aparato grabador, Ahora introducir RUN, pulsar ENTER, y el 
programa será ejecutado, 


Si no funciona correctamente, comprobar los controles del 
volumen y del tono; ambos tienen que estar al máximo o cerca, 
Conseguir el ajuste adecuado suele llevar tiempo, También es 
posible que el aparato grabador no sea compatible, En caso de 
duda, acudir en demanda de ayuda a la tienda donde se 
adquirió el ordenador, Sobre todo, que no cunda el pánico; la 
nayoría de los usuarios de micros tienen de vez en cuando 
problemas en la carga y almacenamiento de los programas, 
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EJECUCION AUTOMATICA 

Una forma de dar a los programas un toque más profesional 
consiste en hacer que sean ejecutados automáticamente una vez 
cargados, Si se quiere que ur programa de nombre "JUEGO" sea 
ejecutado automáticamente, basta ver qué número tiene la 
primera línea del programa y luego, cuando se grabe el 
programa, teclear 


SAVE "JUEGO" LINE 10 
(LINE es una palabra reservada) y pulsar ENTER, El programa 


se graba como siempre, pero cuando sea cargado será ejecutado 
automáticamente, 


CINTAS MISTERIOSAS 


Si no se sabe con seguridad qué programa hay en una cinta 
cassette determinada, basta teclear 


LOAD "" 


y pulsar ENTER, Esta acción cargará el primer programa de la 
cinta, 
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RESUMEN 


Símbolos utilizados 
adición 

sustracción 
multiplicación 
división 

mayor que 

menor que 

elevado a 


TY A Y dé | + 


RNWD: Selecciona al azar un número comprendido en una gama 
determinada, Para sacar al azar un número comprendido entre 
el 0 y el 10, utilizar la siguiente fórmula; LET A=RND*10 


INT: Redondea por abajo números decimales y da los enteros, 
Por ejemplo, PRINT INT(2,9879) daría como respuesta el 2, 


Nombres de variable 

Los nombres de variables numéricas pueden ser de una sola 
letra pero también pueden ser más largos, En estos nombres no 
está permitido poner ni signos de puntuación ni espacios, Los 
nombres de variable no pueden comenzar por un número, 


Cuando se trate de variables que contienen palabras o 
cadenas, sólo se pueden utilizar nombres de variable de una 
sola letra, que debe ir seguida por un signo $, 


Los nombres de variable de bucles y matrices sólo pueden ser 
de una letra, 


El 2X Spectrum considera que las letras mayúsculas o 
minúsculas de los nombres de variable son idénticas, En 
consecuencia, no utilizar nunca el mismo nombre para dos 
variables poniendo uno en mayúsculas y el otro en minúsculas, 


Decimales y fracciones 


El ordenador no puede almacenar las fracciones decimales de 
más de 9 cifras y, por lo tanto, las redondea, 
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Los programas están relacionados por sus instrucciones REM. 
Los programas sin instrucciones REM están relacionados por su título. 


Adición 18 

Area del círculo 42 

Area del rectángulo 40 

Cajero de tienda 46 

Calculadora 21 

¿Cuántas casas hay? 
31 

División utilizando el 
signo / 20 
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Examinador de sumas 
33 
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Millas a kilómetros 36 
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PRIMEROS PASOS 


¡Disfrute al máximo con su ordenador! 


Los programas de este libro —sencillos al 
principio y algo más complejos al final— le 
proporcionarán un agradable entretenimiento 

y le ensenarán a experimentar con su 
microordenador, adaptando los programas segun 
sus preferencias y necesidades. Al terminar, 
estará preparado para desarrollar sus propios 
programas. 


Primeros pasos con el ZX Spectrum 


— Matemáticas sencillas 

— Palabras y juegos de palabras 
— Dibujos y animacion 

— Gráficos y números 


Primeros pasos con el Commodore 64 


— Música y efectos de sonido 

— Palabras y juegos de palabras 
— Dibujos y animacion 

— Graficos y números 


